home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #269 (1993)(Rhein-Sieg-Soft)(Disk 1 of 2).zip / Franz PD Disk #269 (1993)(Rhein-Sieg-Soft)(Disk 1 of 2).adf / Wortspiele / W+SEditor.AMOS / W+SEditor.amosSourceCode
AMOS Source Code  |  1993-10-11  |  312b  |  25 lines
  1. Screen Open 0,640,512,2,Hires
  2. Dir$="Words/"
  3. Open In 1,"FLAG"
  4. Input #1,A
  5. Close 1
  6. MORE:
  7. A=A+1
  8. ST$=Str$(A)
  9. NEU:
  10. Cls 
  11. Locate 0,0
  12. Print A
  13. Input "Word: ";A$
  14. A$=Upper$(A$)
  15. If A$="QUIT" Then Goto BYE
  16. If Len(A$)<>5 Then Goto NEU
  17. Open Out 1,ST$
  18. Print #1,A$
  19. Close 1
  20. Goto MORE
  21. BYE:
  22. A=A-1
  23. Open Out 1,"Flag"
  24. Print #1,A
  25. Close 1